Painter Bear's Language Bridge — Italian/Bridge_ponte_itialian.iso/pc/xtras/-pmatic.dir/Internal_15_movie script.ls

Text File | 1999-09-22 | 828 b | 30 lines

on startMovie
  global gPropFont, gMonoFont, gCanPrint
  if the machineType = 256 then
    set gPropFont to "arial"
    set gMonoFont to "courier new"
  else
    set gPropFont to "helvetica"
    set gMonoFont to "courier"
  end if
  if isXtraInstalled("printomatic") then
    set gCanPrint to 1
  else
    set gCanPrint to 0
    alert("The PrintOMatic Xtra is not installed; printing is disabled." & RETURN & RETURN & "Please consult the Read Me file in the PrintOMatic folder for information on how to install PrintOMatic.")
  end if
end

on isXtraInstalled xtraName
  if not stringp(xtraName) then
    alert("isXtraInstalled() requires an Xtra name to work", 0.0)
    return 0
  end if
  repeat with i = 1 to the number of xtras
    if the name of xtra(i) = xtraName then
      return 1
    end if
  end repeat
  return 0
end